'Function vecAngle#(x1#,y1#,x2#,y2#)
'	Return (180-ATan2((x1-x2),(y1-y2)))
'End Function

Function vecAngle#(x#,y#)
	Return 180.0-ATan2(x,y)
End Function

Function angleX#(angle#)
	Return Cos(angle-90.0)
End Function
Function angleY#(angle#)
	Return Sin(angle-90.0)
End Function

Function dist#(x#,y#)
	Return Sqr((x^2)+(y^2))
End Function